perm filename CV.F4[1,LCS] blob sn#679527 filedate 1982-09-29 generic text, type T, neo UTF8
00100		DIMENSION I(72)
00200		CALL IFILE(1,'EX6')
00300		CALL OFILE(20,'X6')
00400	1	FORMAT(I,72A1)
00500	2	READ(1,1,END=4)K,I
00600		WRITE(20,3)(I(K),K=2,72)
00700		GO TO 2
00800	3	FORMAT(72A1)
00900	4	END